10 REM SAVE"0:SANITATION 64",8 100 REM SANITATION ENGINEER 110 REM FOR THE COMMODORE 64 120 REM BY FRED SIMON 8/85 130 CK=0: FOR I=51740 TO 52223: READ D 140 POKE I,D: CK=CK+D: NEXT 150 IF CK=63591 THEN SYS51740: END 160 PRINT "ERROR IN DATA STATEMENTS": STOP 170 : 180 DATA 120, 169, 55, 133, 1, 169, 160, 133 190 DATA 3, 160, 0, 132, 2, 177, 2, 145 200 DATA 2, 136, 208, 249, 230, 3, 165, 3 210 DATA 201, 192, 208, 241, 169, 54, 133, 1 220 DATA 88, 169, 5, 141, 143, 183, 169, 33 230 DATA 141, 125, 163, 162, 2, 189, 83, 202 240 DATA 157, 38, 181, 202, 16, 247, 96, 76 250 DATA 86, 202, 169, 0, 141, 239, 203, 169 260 DATA 15, 133, 250, 169, 224, 133, 249, 165 270 DATA 52, 141, 240, 203, 56, 229, 50, 201 280 DATA 19, 144, 22, 233, 3, 133, 250, 165 290 DATA 50, 105, 0, 133, 249, 165, 56, 229 300 DATA 52, 105, 1, 197, 250, 176, 2, 133 310 DATA 250, 165, 56, 141, 242, 203, 165, 55 320 DATA 141, 241, 203, 133, 51, 24, 240, 1 330 DATA 56, 173, 242, 203, 133, 52, 233, 0 340 DATA 133, 251, 105, 0, 133, 252, 165, 50 350 DATA 105, 1, 133, 254, 165, 45, 233, 6 360 DATA 133, 95, 165, 46, 233, 0, 133, 96 370 DATA 165, 47, 133, 253, 165, 251, 205, 240 380 DATA 203, 144, 51, 229, 250, 133, 248, 165 390 DATA 52, 229, 251, 229, 248, 73, 255, 105 400 DATA 2, 197, 248, 144, 2, 165, 248, 205 410 DATA 240, 203, 176, 5, 173, 240, 203, 233 420 DATA 0, 133, 251, 32, 138, 203, 166, 48 430 DATA 32, 243, 202, 176, 9, 32, 39, 203 440 DATA 165, 251, 133, 252, 144, 182, 96, 24 450 DATA 165, 95, 105, 7, 133, 95, 144, 2 460 DATA 230, 96, 69, 47, 208, 4, 228, 96 470 DATA 240, 31, 160, 0, 177, 95, 200, 81 480 DATA 95, 16, 228, 177, 95, 16, 224, 160 490 DATA 4, 177, 95, 197, 251, 144, 217, 197 500 DATA 252, 176, 212, 32, 170, 203, 144, 208 510 DATA 96, 24, 96, 32, 83, 203, 176, 249 520 DATA 160, 2, 177, 95, 197, 251, 144, 10 530 DATA 197, 252, 176, 6, 32, 170, 203, 144 540 DATA 2, 96, 24, 169, 3, 101, 95, 133 550 DATA 95, 144, 2, 230, 96, 197, 253, 208 560 DATA 223, 228, 96, 208, 219, 240, 212, 24 570 DATA 165, 253, 133, 95, 134, 96, 69, 49 580 DATA 208, 4, 228, 50, 240, 39, 160, 2 590 DATA 177, 95, 101, 95, 133, 253, 200, 177 600 DATA 95, 101, 96, 170, 160, 0, 177, 95 610 DATA 200, 81, 95, 16, 218, 160, 4, 177 620 DATA 95, 10, 105, 5, 101, 95, 133, 95 630 DATA 144, 3, 230, 96, 24, 96, 165, 248 640 DATA 133, 79, 165, 249, 133, 89, 160, 0 650 DATA 132, 78, 132, 88, 166, 250, 232, 177 660 DATA 78, 145, 88, 200, 208, 249, 230, 89 670 DATA 230, 79, 202, 208, 242, 96, 72, 120 680 DATA 169, 53, 133, 1, 104, 197, 248, 144 690 DATA 5, 229, 248, 24, 101, 249, 133, 79 700 DATA 136, 177, 95, 133, 78, 136, 56, 165 710 DATA 51, 241, 95, 133, 51, 200, 145, 95 720 DATA 165, 52, 233, 0, 133, 52, 200, 145 730 DATA 95, 136, 136, 177, 95, 240, 9, 168 740 DATA 136, 177, 78, 145, 51, 152, 208, 248 750 DATA 169, 54, 133, 1, 88, 24, 165, 254 760 DATA 229, 52, 96, 0, 0, 0, 0, 67 770 DATA 49, 57, 56, 53, 32, 70, 46, 83 780 DATA 73, 77, 79, 78